Visualizaciones

ComexPerú. (2022, 18 de febrero). Índice de Percepción de la Corrupción 2021: el Perú retrocede once posiciones y ocupa el puesto 105 de 180 economías. ComexPerú. https://www.comexperu.org.pe/articulo/indice-de-percepcion-de-la-corrupcion-2021-el-peru-retrocede-once-posiciones-y-ocupa-el-puesto-105-de-180-economias


Percepción de la corrupción en el Perú 2021


Como se puede apreciar en el gráfico, la percepción de la corrupción en el Perú, en comparación con otros países aledaños, como Uruguay, Chile, Colombia y Brasil,incrementó notoriamente y llegó al nivel más alto el año 2021. Este dashboard propone mostrar el motivo de este aumento mediante una regresión y distintos gráficos que explican este pensamiento en los ciudadanos peruanos acerca de la corrupción que es uno de los problemas principales en el país.

Visualizaciones2

   Percepcion     Confianza Participacion       Respeto Transparencia 
         1521            13          2293          1551          1546 
   Tolerancia 
         1562 
   Percepcion     Confianza Participacion       Respeto Transparencia 
         1519            11          2291          1549          1544 
   Tolerancia 
         1560 

Regresión


Call:
lm(formula = Percepcion ~ Confianza + Participacion + Respeto + 
    Transparencia + Tolerancia, data = peru_final)

Residuals:
    Min      1Q  Median      3Q     Max 
-5.3019 -0.3019  0.0207  0.6981  2.2828 

Coefficients:
               Estimate Std. Error t value Pr(>|t|)    
(Intercept)    4.374929   0.074516  58.711  < 2e-16 ***
Confianza      0.185390   0.018341  10.108  < 2e-16 ***
Participacion -0.085336   0.015181  -5.621 2.07e-08 ***
Respeto       -0.196813   0.009362 -21.023  < 2e-16 ***
Transparencia -0.907177   0.053848 -16.847  < 2e-16 ***
Tolerancia    -0.713799   0.017729 -40.263  < 2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 0.8308 on 3030 degrees of freedom
Multiple R-squared:  0.9044,    Adjusted R-squared:  0.9042 
F-statistic:  5730 on 5 and 3030 DF,  p-value: < 2.2e-16

Visualizaciones3

Gráfico de líneas 1

Visualizaciones4

Visualizaciones5

Gráfico de líneas 3

Visualizaciones6

Gráfico de líneas 4

Visualizaciones7

Gráfico de líneas 5

Visualizaciones8

Gráfico de líneas múltiple

Visualizaciones9

Gráfico de puntos 1

Visualizaciones10

Gráfico de puntos 2

Visualizaciones11

Gráfico de puntos 3

Visualizaciones12

Gráfico de puntos 4

Visualizaciones13

Gráfico de puntos 5

Visualizaciones14

Gráfico de densidad 1

Visualizaciones15

Gráfico de densidad 2

Visualizaciones16

Gráfico de densidad 3

Visualizaciones17

Gráfico de barras de error

Visualizaciones18

Gráfico de barras

Tablas

Tabla 1

               Percepcion    Confianza Participacion    Respeto Transparencia
Percepcion     1.00000000  0.067923742  -0.549387650 -0.8611275  -0.885295092
Confianza      0.06792374  1.000000000  -0.005722218 -0.1038793   0.003035467
Participacion -0.54938765 -0.005722218   1.000000000  0.5024741   0.522765846
Respeto       -0.86112749 -0.103879297   0.502474054  1.0000000   0.799714731
Transparencia -0.88529509  0.003035467   0.522765846  0.7997147   1.000000000
Tolerancia    -0.92838137  0.024117290   0.535461826  0.8238173   0.883177636
               Tolerancia
Percepcion    -0.92838137
Confianza      0.02411729
Participacion  0.53546183
Respeto        0.82381735
Transparencia  0.88317764
Tolerancia     1.00000000

Tablas2

Tabla 2

           Var1       Var2 value
1    Percepcion Percepcion  1.00
2     Confianza Percepcion  0.07
3 Participacion Percepcion -0.55
4       Respeto Percepcion -0.86
5 Transparencia Percepcion -0.89
6    Tolerancia Percepcion -0.93

Visualizaciones19

Gráfico de correlación

Tablas3

Tabla KMO

Kaiser-Meyer-Olkin factor adequacy
Call: KMO(r = Peru_factor_scaled)
Overall MSA =  0.8
MSA for each item = 
    Confianza Participacion       Respeto Transparencia    Tolerancia 
         0.15          0.96          0.84          0.78          0.74 
$chisq
[1] 9520.29

$p.value
[1] 0

$df
[1] 10

Tablas4

Tabla 4

Factor Analysis using method =  minres
Call: fa(r = Peru_factor_scaled, nfactors = 2, rotate = "varimax")
Standardized loadings (pattern matrix) based upon correlation matrix
                MR1   MR2   h2   u2 com
Confianza     -0.01  0.39 0.15 0.85 1.0
Participacion  0.57 -0.01 0.32 0.68 1.0
Respeto        0.88 -0.25 0.84 0.16 1.2
Transparencia  0.92  0.03 0.85 0.15 1.0
Tolerancia     0.96  0.08 0.92 0.08 1.0

                       MR1  MR2
SS loadings           2.86 0.22
Proportion Var        0.57 0.04
Cumulative Var        0.57 0.62
Proportion Explained  0.93 0.07
Cumulative Proportion 0.93 1.00

Mean item complexity =  1
Test of the hypothesis that 2 factors are sufficient.

df null model =  10  with the objective function =  3.14 with Chi Square =  9520.29
df of  the model are 1  and the objective function was  0 

The root mean square of the residuals (RMSR) is  0 
The df corrected root mean square of the residuals is  0.01 

The harmonic n.obs is  3036 with the empirical chi square  0.32  with prob <  0.57 
The total n.obs was  3036  with Likelihood Chi Square =  2.88  with prob <  0.089 

Tucker Lewis Index of factoring reliability =  0.998
RMSEA index =  0.025  and the 90 % confidence intervals are  0 0.061
BIC =  -5.13
Fit based upon off diagonal values = 1
Measures of factor score adequacy             
                                                   MR1   MR2
Correlation of (regression) scores with factors   0.98  0.63
Multiple R square of scores with factors          0.96  0.40
Minimum correlation of possible factor scores     0.91 -0.21

Visualizaciones20

Gráfico EFA

Visualizaciones21

Índice para determinar K

Visualización de clusters PCA

Tablas5

Tablas 6

# A tibble: 2 × 6
  cluster_k2 Confianza Participacion Respeto Transparencia Tolerancia
  <fct>          <dbl>         <dbl>   <dbl>         <dbl>      <dbl>
1 1               3.85          1.35 5.39         1.14        3.89   
2 2               3.92          0    0.00391      0.000651    0.00260

Visualizaciones22

AGNES

Tablas6

Tablas 7

agnes_clusters
   1    2 
1506 1530 

Visualizaciones23

DIANA

Tablas7

Tablas 8

diana_clusters
   1    2 
1488 1548 

Visualizaciones24

PAM

PAM

  cluster size ave.sil.width
1       1 1496          0.38
2       2 1540          0.73

Tablas8

Tablas 9

     Confianza Participacion    Respeto Transparencia Tolerancia
[1,] 0.1332408     1.1185765  0.7677962     0.7017762  1.0237401
[2,] 0.1332408    -0.5601176 -0.8779460    -0.9025856 -0.9465134

Tablas 10

# A tibble: 2 × 6
  cluster_pam Confianza Participacion Respeto Transparencia Tolerancia
        <int>     <dbl>         <dbl>   <dbl>         <dbl>      <dbl>
1           1      3.85          1.35  5.40         1.14       3.89   
2           2      3.92          0     0.0110       0.00260    0.00844

Tablas9

Tablas 11

      AGNES
Kmeans    1    2
     1 1500    0
     2    6 1530
      PAM
Kmeans    1    2
     1 1496    4
     2    0 1536

Tablas10

Tablas 12

# A tibble: 2 × 6
  cluster_k2 Confianza Participacion Respeto Transparencia Tolerancia
  <fct>          <dbl>         <dbl>   <dbl>         <dbl>      <dbl>
1 1               3.85          1.35 5.39         1.14        3.89   
2 2               3.92          0    0.00391      0.000651    0.00260
# A tibble: 2 × 6
  cluster_pam Confianza Participacion Respeto Transparencia Tolerancia
        <int>     <dbl>         <dbl>   <dbl>         <dbl>      <dbl>
1           1      3.85          1.35  5.40         1.14       3.89   
2           2      3.92          0     0.0110       0.00260    0.00844